home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh49a.d64 / le president (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  36KB  |  917 lines
  1. 0 POKE53280,9:POKE53281,9:IFPEEK(182)=0THENPOKE182,1:LOAD"ZEICHEN",8,1
  2. 1 POKE53272,48:POKE56576,0:POKE648,204:GOSUB100
  3. 5 A=1023:RESTORE:AF=52264
  4. 6 READC
  5. 7 IFC=-1THENRETURN
  6. 9 FORY=1TO4:POKE(A+Y),C:NEXTY:A=A+4
  7. 10 GOTO6
  8. 12 DATA1,1,1,0,100,100,0,0,1,0,0,1,1,2,10,20,100,0,50,1,0,0,0,0,1,1,2,5,5,25,0
  9. 13 DATA 0,100,100,0,0,20,-1
  10. 19 FORI=1TOZZ
  11. 20 A(I)=2800:SG(I)=2000:PO(I)=250:EW(I)=50000:JA=2010:EG(I)=26000
  12. 21 EB(I)=24000:G(I)=35000:UP(I)=1200:LB(I)=20000:PI(I)=450:LH(I)=600
  13. 46 GV(I)=25000:GB(I)=24738:BL(I)=1535:GL(I)=2465:LA(I)=50000:GK(I)=25000
  14. 47 EV(I)=2000:GA(I)=0:AL(I)=0:AC(I)=500:NEXT
  15. 50 FORX=1TO10:POKE(1379+X),2:NEXT:RETURN
  16. 100 PRINT"[144][147][215]IEVIEL [211]PIELER (1-4) ";:INPUTZZ
  17. 122 IF ZZ<1 ORZZ>4 THEN 100
  18. 123 PRINT"[147]":FORI=1TOZZ
  19. 124 PRINT"[206]AME VON [211]PIELER";I;SPC(61):INPUTN$(I)
  20. 125 A=LEN(N$(I)):IFA>12THENPRINT"[145][145][145][145][145][145]":GOTO124
  21. 127 NEXT:GOSUB5:GOSUB19:GOSUB20950:GOSUB50000:GOSUB50100:GOTO20000
  22. 500 GOSUB19000:SP=52865:JMP=1:A=7:B=240:POKESP,62:G(I)=(INT(G(I)))
  23. 510 PRINTSPC(11)"[199]ELD           :";G(I)"[200][198]":PRINTSPC(11)"[197]INWOHNER      :";EW(I)
  24. 540 PRINTSPC(11)"[193]USL^NDER      :";AL(I):PRINTSPC(11)"[204]ANDBESITZ     :";LB(I)"[209][200][198]"
  25. 546 PRINTSPC(11)"BEBAUTES [204]AND  :";BL(I)"[209][200][198]":PRINTSPC(11)"[194]AULAND        :";GL(I)"[209][200][198]"
  26. 549 PRINTSPC(11)"[214]OLKSSTIMMUNG  :";PEEK(1039+I)"%"
  27. 550 PRINTSPC(11)"[213]MWELTZUSTAND  :";PEEK(1043+I)"%"
  28. 551 PRINTSPC(11)"[211][193][199]-[211]T^RKE     :";PEEK(1151+I)"%"
  29. 560 PRINT"[197]NERGIE":PRINT"[202]USTIZ":PRINT"[212]OURISMUS":PRINT"[205]ILIT^R":PRINT"[201]NDUSTRIE"
  30. 610 PRINT"[204]ANDWIRTSCHAFT":PRINT"[193]USWERTUNG"
  31. 660 GOSUB 20100:IFJMP=7THEN50500
  32. 670 ON JMP GOSUB 999,1499,1999,2498,2999,3499:GOTO500
  33. 999 SP=52785:JMP=1
  34. 1000 GOSUB19000:PRINTSPC(10)"[199]ELD             :";G(I)"[200][198]"
  35. 1002 A=10:POKESP,62:B=360:PRINTSPC(10)"[203]ERNKRAFTWERKE   :";PEEK(1023+I)
  36. 1003 PRINTSPC(10)"[215]INDR^DER        :";PEEK(1027+I)
  37. 1004 PRINTSPC(10)"[211]TAUD^MME        :";PEEK(1031+I)
  38. 1005 PRINTSPC(10)"[197]NERGIEVORRAT    :";EV(I)"[203][200][198]"
  39. 1006 PRINTSPC(10)"[197]NERGIEPRODUKTION:";EG(I)"[203][200][198]"
  40. 1007 PRINTSPC(10)"[197]NERGIE BEN\TIGT :";EB(I)"[203][200][198]"
  41. 1008 PRINTSPC(10)"[194]AULAND          :";GL(I)"[209][200][198]"
  42. 1010 PRINT"[203]ERNKRAFTWERK KAUFEN    - 3000 [200][198]":PRINT"[203]ERNKRAFTWERK VERKAUFEN"
  43. 1020 PRINT"[215]INDRAD KAUFEN          - 2500 [200][198]":PRINT"[215]INDRAD VERKAUFEN"
  44. 1030 PRINT"[211]TAUDAMM KAUFEN         - 1500 [200][198]":PRINT"[211]TAUDAMM VERKAUFEN"
  45. 1080 PRINT"[211]TROM ANBIETEN":PRINT"[211]TROM KAUFEN":PRINT"[211]TROMPREISE":PRINT"[200]AUPTMEN[184]"
  46. 1110 GOSUB 20100:IFJMP=10THENRETURN
  47. 1120 ONJMPGOSUB 19059,19088,19069,19098,19079,19108,19116,19127,19172:GOTO1000
  48. 1499 JMP=1:SP=52825
  49. 1500 GOSUB19000
  50. 1501 PRINTSPC(14)"[199]ELD         :";G(I)"[200][198]":PRINTSPC(14)"[211]TEUERN      :";PEEK(1083+I)"%"
  51. 1513 A=5:POKESP,62:B=160:PRINTSPC(14)"[199]EF^NGNISSE  :";PEEK(1067+I)
  52. 1514 PRINTSPC(14)"[199]ESETZESH^RTE:";PEEK(1075+I)
  53. 1515 PRINTSPC(14)"[194]AULAND      :";GL(I)"[209][200][198]"
  54. 1519 PRINT"[199]EF^NGNISS KAUFEN - 1500 [200][198]":PRINT"[211]TEUERN ^NDERN"
  55. 1522 PRINT"[199]ESETZESH^RTE":PRINT"[208]OLIZEI":PRINT"[200]AUPTMEN[184]"
  56. 1600 GOSUB20100:IFJMP=5THENRETURN
  57. 1619 IFJMP=4THEN19299
  58. 1620 ONJMPGOSUB19280,19260,19290:GOTO1500
  59. 1999 JMP=1:SP=52785
  60. 2000 GOSUB19000:PRINTSPC(11)"[199]ELD              :";G(I)"[200][198]":POKESP,62:A=8:B=280
  61. 2010 PRINTSPC(11)"[200]OTELS            :";PEEK(1071+I)
  62. 2012 PRINTSPC(11)"[198]REIZEITPARKS     :";PEEK(1099+I)
  63. 2013 PRINTSPC(11)"[194]UNGALOWSIEDLUNGEN:";PEEK(1055+I)
  64. 2016 PRINTSPC(11)"[218]OLL";SPC(12)"  :";PEEK(1079+I)"%"
  65. 2017 PRINTSPC(11)"[194]AULAND           :";GL(I)"[209][200][198]"
  66. 2030 PRINT"[200]OTEL KAUFEN";SPC(12)"- 1000 [200][198]":PRINT"[200]OTEL VERKAUFEN"
  67. 2050 PRINT"[198]REIZEITPARK KAUFEN     - 1250 [200][198]":PRINT"[198]REIZEITPARK VERKAUFEN"
  68. 2060 PRINT"[194]UNGALOWSIEDLUNG KAUFEN - 2500 [200][198]":PRINT"[194]UNGALOWSIEDLUNG VERKAUFEN"
  69. 2061 PRINT"[218]OLL":PRINT"[200]AUPTMEN[184]"
  70. 2080 GOSUB20100:IFJMP=8THENRETURN
  71. 2100 ONJMPGOSUB 19510,19515,19520,19525,19530,19535,19270:GOTO2000
  72. 2498 IFJA<2012THEN20060
  73. 2499 JMP=1:SP=52825
  74. 2500 GOSUB19000
  75. 2502 IF PEEK(1399+I)>100 THEN POKE(1399+I),100
  76. 2503 PRINTSPC(14)"[199]ELD       :";G(I)"[200][198]":BB=0
  77. 2505 POKESP,62:A=7:B=240:PRINTSPC(14)"[198]LUGZEUGE  :";PEEK(1309+I)
  78. 2506 PRINTSPC(14)"[208]ANZER     :";PEEK(1299+I):PRINTSPC(14)"[201]NFANTERIE :";PEEK(1319+I)
  79. 2508 PRINTSPC(14)"[203]ASERNEN   :";PEEK(1379+I):PRINTSPC(14)"[193]USBILDUNG :";PEEK(1399+I)"%"
  80. 2510 PRINTSPC(14)"[194]AULAND    :";GL(I)"[209][200][198]"
  81. 2520 PRINT"[198]LUGZEUG KAUFEN - 800 [200][198]"
  82. 2530 PRINT"[208]ANZER KAUFEN   - 500 [200][198]":PRINT"[201]NFANTERIE      - 300 [200][198]"
  83. 2555 PRINT"[203]ASERNE KAUFEN  - 500 [200][198]":PRINT"[201]NFORMATIONEN"
  84. 2558 PRINT"[203]RIEG":PRINT"[200]AUPTMEN[184]"
  85. 2570 GOSUB 20100:IFJMP=7THENRETURN
  86. 2571 IFJMP=6THEN19650
  87. 2573 Y=JMP
  88. 2590 ONJMP GOSUB19600,19600,19600,42500,37000:IFJM=11THEN2499
  89. 2593 GOTO2500
  90. 2999 SP=52825:JMP=1
  91. 3000 GOSUB19000:PRINTSPC(12)"[199]ELD           :";G(I)"[200][198]"
  92. 3020 POKESP,62:A=7:B=240:PRINTSPC(12)"[199]ROSSE [198]ABRIKEN:";PEEK(1119+I)
  93. 3024 PRINTSPC(12)"[203]LEINE [198]ABRIKEN:";PEEK(1123+I)
  94. 3025 PRINTSPC(12)"[208]RODUKTION     :";PI(I)"[201][200][198]"
  95. 3026 PRINTSPC(12)"[204]AGERH^USER    :";PEEK(1127+I)
  96. 3027 PRINTSPC(12)"[204]AGERKAPAZIT^T :";LH(I)"[201][200][198]"
  97. 3028 PRINTSPC(12)"[194]AULAND        :";GL(I)"[209][200][198]"
  98. 3060 PRINT"[198]ABRIK KAUFEN        - 3000 [200][198]":PRINT"[198]ABRIK VERKAUFEN"
  99. 3070 PRINT"[203]L. [198]ABRIK KAUFEN    - 1500 [200][198]":PRINT"[203]L. [198]ABRIK VERKAUFEN"
  100. 3100 PRINT"[204]AGERHAUS KAUFEN     - 1200 [200][198]":PRINT"[204]AGERHAUS VERKAUFEN"
  101. 3120 PRINT"[200]AUPTMEN[184]"
  102. 3210 GOSUB 20100:IFJMP=7THENRETURN
  103. 3230 ON JMP GOSUB 14999,15018,15009,15028,15039,15048:GOTO3000
  104. 3499 JMP=1:SP=52825
  105. 3500 GOSUB19000:PRINTSPC(9)"[199]ELD";SPC(13)":";G(I)"[200][198]"
  106. 3540 POKESP,62:A=9:B=320:PRINTSPC(9)"[199]ETREIDEM[184]HLEN   :";PEEK(1139+I)
  107. 3541 PRINTSPC(9)"[205][184]HLENKAPAZIT^T  :";GK(I)"[199][200][198]"
  108. 3550 PRINTSPC(9)"[204]AGERH^USER      :";PEEK(1135+I)
  109. 3551 IFLA(I)<1THENLA(I)=0
  110. 3552 PRINTSPC(9)"[204]AGERKAPAZIT^T   :";LA(I)"[199][200][198]"
  111. 3553 PRINTSPC(9)"[193]CKERLAND        :";AC(I)"[209][200][198]"
  112. 3554 PRINTSPC(9)"GEEIGNETES [204]AND  :";GL(I)"[209][200][198]"
  113. 3560 PRINTSPC(9)"[199]ETREIDEVORRAT   :";GV(I)"[199][200][198]"
  114. 3570 PRINTSPC(9)"[199]ETREIDE BEN\TIGT:";GB(I)"[199][200][198]"
  115. 3571 PRINTSPC(9)"[211]AATGUT BEN\TIGT :";SG(I)"[199][200][198]"
  116. 3600 PRINT"[199]ETREIDEFELDER ANLEGEN":PRINT"[204]AGERHAUS KAUFEN         - 500
  117. 3630 [153]"(null)AGERHAUS VERKAUFEN":[153]"CHR$ETREIDEMFREHLE KAUFEN     - 1100 LEFT$ASC"
  118. 3650 [153]"CHR$ETREIDEMFREHLE VERKAUFEN":[153]"CHR$ETREIDE ANBIETEN":[153]"CHR$ETREIDE KAUFEN"
  119. 3671 [153]"(null)REISE ANSCHAUEN":[153]"LEFT$AUPTMENFRE"
  120. 3700 [141] 20100:[139]JMP[178]9[167][142]
  121. 3720 [145] JMP [141] 15500,15601,15608,15620,15627,15690,15750,15850:[137]3500
  122. 14999 A[178]1119:D[178]0:E[178]300:F[178]0:G[178]800:H[178][171]3000:J[178]100:Z[178]120:Q[178]0:[137]20350
  123. 15009 A[178]1123:D[178]0:E[178]150:F[178]0:G[178]500:H[178][171]1500:Z[178]80:J[178]70:Q[178]0:[137]20350
  124. 15018 A[178]1119:D[178]80:E[178][171]300:F[178]0:G[178][171]800:H[178]3000:Z[178][171]120:J[178]0:Q[178]100:[137]20350
  125. 15028 A[178]1123:D[178]60:E[178][171]150:F[178]0:Z[178][171]80:G[178][171]400:H[178]1500:J[178]0:Q[178]70:[137]20350
  126. 15039 A[178]1127:D[178]0:E[178]0:F[178]300:G[178]20:H[178][171]1200:J[178]80:Z[178]80:Q[178]0:[137]20350
  127. 15048 A[178]1127:D[178]20:E[178]0:F[178][171]300:G[178][171]20:Z[178][171]80:H[178]1200:J[178]0:Q[178]80:[137]20350
  128. 15500 [141]19000:[153]"(null)IE HABEN";LB(I);"(null)LEFT$ASC (null)AND,VON DENEN"
  129. 15515 [153]"";AC(I);"(null)LEFT$ASC BEPFLANZT UND";GL(I);"(null)LEFT$ASC":[153]"GEEIGNET SIND."
  130. 15530 A[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN SIE NEU":[153]"BEPFLANZEN ";:[133]A
  131. 15535 [139]A[177]GL(I)[176]A[179]0[167] [153]"ONONONONON":[137] 15530
  132. 15540 A[178]([181](A)):B[178]A[172]40:G(I)[178]G(I)[171]B:AC(I)[178]AC(I)[170]A:GL(I)[178]GL(I)[171]A
  133. 15544 SG(I)[178](A[172]4)[170]SG(I):[139][194](1043[170]I)[177]100[167][151](1043[170]I),100
  134. 15550 [153]"STR$AS HERSTELLEN VON LANDWIRTSCHAFT-"
  135. 15555 [153]"LICH GUT NUTZBAREM ATNCKER KOSTET":[153]"SIE";B"LEFT$ASC.":[137]20800
  136. 15601 A[178]500:B[178]1135:C[178]1:D[178]10000:X[178]60:E[178]0:Z[178]25:G[178]0:Z[178]20:Q[178]0:TY[178]20:[137]20400
  137. 15608 [139][194](1135[170]I)[179]0[167]20060
  138. 15611 A[178][171]500:X[178][171]60:B[178]1135:C[178][171]1:D[178][171]10000:E[178]0:Y[178]0:G[178]10:Z[178]0:Q[178]20:TY[178][171]20:[137]20400
  139. 15620 A[178]1100:B[178]1139:C[178]1:D[178]0:E[178]1000:G[178]0:X[178]90:Y[178]50:Z[178]120:Q[178]0:[137]20400
  140. 15627 [139][194](1139[170]I)[179]0[167]20060
  141. 15630 A[178][171]1100:Y[178]0:B[178]1139:C[178][171]1:D[178]0:E[178][171]1000:X[178][171]90:G[178]20:Z[178][171]120:Q[178]10:[137]20400
  142. 15690 [139]ZZ[179][177]1[167] 15694
  143. 15691 [141]19117:[142]
  144. 15694 [141]19000
  145. 15695 A[178]0:[153]"(null)IEVIEL CHR$LEFT$ASC WOLLEN (null)IE":[153]"ANBIETEN ";:[133]A
  146. 15697 A[178]([181](A)):[139]A[177]GV(I)[176]A[179]0[167] [153]"ONONONONONON":[137]15695
  147. 15702 GA(I)[178]GA(I)[170]A:GV(I)[178]GV(I)[171]A:B[178]0:[153]"(null)REIS PRO 100 CHR$LEFT$ASC ";:[133]B
  148. 15703 [139]B[177]255[176]B[179]0[167][153]"ONONONON":[137]15702
  149. 15705 [151](1143[170]I),B:[142]
  150. 15750 [141]19000
  151. 15751 [153]"PEEKEI (null)PIELER (A) ODER BEI (null)TORE (B)"
  152. 15756 [153]"ODER ZURFRECK INS (null)ENFRE (M) ?"
  153. 15757 [161] A$:[139]A$[178]""[167]15757
  154. 15758 [139]A$[178]"A"[175]ZZ[178]1[167] [153]"ONONONONONON":[137]15751
  155. 15759 [139] A$[178]"A"[167]15770
  156. 15761 [139] A$[178]"B"[167]15800
  157. 15763 [139] A$[178]"M"[167] [142]
  158. 15765 [153]"ONONONONONON":[137] 15751
  159. 15770 [153]"PEEKEI WELCHEM (null)PIELER ";:[133]A
  160. 15771 [139]A[178]0[167]15750
  161. 15772 [139]A[178]I[176]A[177]ZZ[176]A[179]1[167][153]"ONONONON":[137]15770
  162. 15773 [139]GA(A)[178]0[167][141]51300:[137]15770
  163. 15776 [153]"(null)PIELER";A;"BIETET";GA(A);"CHR$LEFT$ASC AN.(null)EIN"
  164. 15778 [153]"(null)REIS IST";[194](1143[170]A);"LEFT$ASC PRO 100 CHR$LEFT$ASC."
  165. 15780 [153]"(null)IEVIEL CHR$LEFT$ASC WOLLEN SIE ERWERBEN";[166]49):[133]B
  166. 15783 B[178]([181](B)):[139]B[179]0[176]B[177]GA(A)[167][153]"ONONONONONONONONONON":[137]15776
  167. 15784 B[178]([181](B)):GV(A)[178]GV(A)[171]B:GV(I)[178]GV(I)[170]B:GA(A)[178]GA(A)[171]B
  168. 15785 B[178](B[173]100)[172][194](1143[170]A):G(A)[178]G(A)[170]B:G(I)[178]G(I)[171]B:[139]GA(A)[178]0[167][151](1143[170]A),0
  169. 15786 [142]
  170. 15800 [141]19000
  171. 15801 [153]"STR$ER (null)REIS DER (null)TORE LIEGT BEI 40 LEFT$ASC"
  172. 15810 [153]"PRO 100 CHR$LEFT$ASC.(null)IEVIEL CHR$LEFT$ASC WOLLEN SIE"
  173. 15813 [153]"ERWERBEN ";:[133]A
  174. 15814 [139]A[179]0[167][153]"ONONONONONONONON":[137]15801
  175. 15817 A[178]([181](A)):GV(I)[178]GV(I)[170]A:C[178](A[173]100)[172]40:C[178]([181](C)):G(I)[178]G(I)[171]C:[142]
  176. 15850 [139] ZZ[177]1[167] 15855
  177. 15851 [141]19117:[142]
  178. 15855 [141]19000:Y[178]ZZ:[129]X[178]1[164]Y:[153]"CHR$ETREIDEANGEBOT ";N$(X);" =";GA(X)"CHR$LEFT$ASC"
  179. 15861 YY[178][195](N$(X)):[153]"CHR$ETREIDEPREIS";[166]YY[170]4)"=";[194](1143[170]X)"LEFT$ASC"
  180. 15865 [130]:[137]20800
  181. 19000 [153]"LOADMID$AHR:";JA"(null)R^SIDENT ";N$(I)
  182. 19010 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":[142]
  183. 19059 A[178][171]3000:B[178]300:C[178]10000:D[178]120:F[178]1023:G[178][171]1:H[178]1:J[178]0:L[178]70:Q[178]0:[137]20249
  184. 19069 A[178][171]2500:D[178]10:B[178]50:C[178]5000:H[178]1:F[178]1027:G[178]2:J[178]0:L[178]5:Q[178]0:[137] 20249
  185. 19079 A[178][171]1500:D[178]40:B[178]100:C[178]11000:H[178][170]1:F[178]1031:G[178][171]3:J[178]0:L[178]200:Q[178]0:[137] 20249
  186. 19088 [139] [194](1023[170]I)[178]0 [167] 20060
  187. 19089 A[178]3000:D[178][171]120:B[178][171]300:C[178][171]10000:F[178]1023:G[178][171]1:H[178][171]1:J[178]80:L[178]0:Q[178]70:[137]20249
  188. 19098 [139] [194](1027[170]I)[178]0 [167] 20060
  189. 19099 A[178]2500:D[178][171]10:B[178][171]50:C[178][171]5000:F[178]1027:G[178][171]4:H[178][171]1:J[178]20:L[178]0:Q[178]5:[137]20249
  190. 19108 [139] [194](1031[170]I)[178]0 [167] 20060
  191. 19110 A[178]1500:D[178][171]40:B[178][171]100:L[178]0:C[178][171]11000:F[178]1031:G[178][171]1:H[178][171]1:J[178]40:Q[178]200:[137]20249
  192. 19116 [139]ZZ[177]1[167]19118
  193. 19117 [153]"ONONONON";[166]23)"(null)OZU ?WAIT":[137]20800
  194. 19118 [141]19000
  195. 19119 A[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN (null)IE":[153]"ANBIETEN ";:[133]A
  196. 19122 A[178]([181](A)):[139]A[177]EV(I)[176]A[179]0[167][153]"ONONONONONONON":[137]19119
  197. 19124 SVM(I)[178]SVM(I)[170]A:EV(I)[178]EV(I)[171]A:[153]"(null)REIS PRO (null)LEFT$ASC ";:[133]B
  198. 19125 [139]B[177]255[176]B[179]0[167] [153]"ONONONON":[137] 19124
  199. 19126 [151](1051[170]I),B:[142]
  200. 19127 [141]19000
  201. 19128 [153]"PEEKEI (null)PIELER (A) ODER (null)TORE (B)"
  202. 19129 [153]"ODER ZURFRECK INS (null)ENFRE (M) ?"
  203. 19130 [161]A$:[139] A$[178]""[167]19130
  204. 19131 [139]A$[178]"A"[175]ZZ[178]1[167][153]"ONONONONONON":[137]19128
  205. 19132 [139] A$[178]"A"[167]19136
  206. 19133 [139] A$[178]"B"[167]19150
  207. 19134 [139] A$[178]"M"[167][142]
  208. 19135 [153]"ONONONONONON":[137]19128
  209. 19136 [153]"PEEKEI WELCHEM (null)PIELER ";:[133] A
  210. 19137 [139]A[178]0[167]19127
  211. 19138 [139]A[178]I[176]A[177]ZZ[167] [153]"ONONONON":[137]19136
  212. 19139 [139]SVM(A)[178]0[167][141]51300:[137]19136
  213. 19140 [153]"(null)PIELER";A;"BIETET";SVM(A);"(null)LEFT$ASC (null)TROM ZUM"
  214. 19141 [153]"(null)REIS VON";[194](1051[170]A);"LEFT$ASC PRO (null)LEFT$ASC AN."
  215. 19142 B[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN SIE ERWERBEN";[166]49):[133] B
  216. 19144 B[178]([181](B)):[139]B[177]SVM(A)[176]B[179]0[167][153]"ONONONONONONON":[137] 19142
  217. 19146 C[178]B[172][194](1051[170]A):SVM(A)[178]SVM(A)[171]B:EV(I)[178]EV(I)[170]B:G(I)[178]G(I)[171]C:G(A)[178]G(A)[170]C:[142]
  218. 19150 [153]"STR$ER (null)TROMPREIS DER (null)TORE BETR^GT"
  219. 19151 [153]"3 LEFT$ASC PRO (null)LEFT$ASC.(null)IEVIEL (null)LEFT$ASC M\CHTEN":[153]"SIE ERWERBEN ";:[133]A
  220. 19152 [139]A[179]0[167][153]"ONONONONONONONON":[137]19150
  221. 19154 B[178]A[172]3:G(I)[178]G(I)[171]B:EV(I)[178]EV(I)[170]A:[142]
  222. 19172 [139]ZZ[179][177]1[167] 19175
  223. 19173 [141]19117:[142]
  224. 19175 [141]19000:Y[178]ZZ:[129]X[178]1[164]Y:[153]"(null)TROMANGEBOT ";N$(X);"=";SVM(X)"(null)LEFT$ASC"
  225. 19178 YY[178][195](N$(X)):[153]"(null)TROMPREIS";[166]YY[170]3)"=";[194](1051[170]X)"LEFT$ASC":[130]:[137]20800
  226. 19260 [141]19000
  227. 19261 Y[178][194](1083[170]I):[153]"(null)TEUERSATZ FESTLEGEN ((null)ROZENT) ";:[133]Y
  228. 19262 [139]Y[177]100[176]Y[179]0[176]Y[177][194](1167[170]I)[170]1[167][153]"ONONONON":[137]19261
  229. 19263 X[178]([194](1083[170]I)[171]Y)[172]10:[139][194](1039[170]I)[170]X[177]100[167][151](1039[170]I),100:[137]19268
  230. 19266 [139][194](1039[170]I)[170]X[179]1[167][151](1039[170]I),0:[137]19268
  231. 19267 [151](1039[170]I),[194](1039[170]I)[170]X
  232. 19268 [151](1083[170]I),Y:[142]
  233. 19270 [141]19000
  234. 19271 Y[178][194](1079[170]I):[153]"(null)OLL FESTLEGEN ((null)ROZENT) ";:[133]Y
  235. 19272 [139]Y[177]100[176]Y[179]0[167] [153]"ONONONON":[137]19271
  236. 19279 [151](1079[170]I),Y:[142]
  237. 19280 [139]GL(I)[171]30[179]0[167]20060
  238. 19285 [141]20050:G(I)[178]G(I)[171]1500:A(I)[178]A(I)[170]65:[151](1067[170]I),[194](1067[170]I)[170]1
  239. 19286 GL(I)[178]GL(I)[171]30:BL(I)[178]BL(I)[170]30:EB(I)[178]EB(I)[170]30:[142]
  240. 19290 YY[178][194](1075[170]I):[153]"(null)EUER LEFT$^RTGRAD (1-4) ";:[133]YY
  241. 19291 [139]YY[177]4[176]YY[179]1[167] [153]"ONONONON":[137]19290
  242. 19292 X[178][194](1075[170]I)[171]YY:[151](1075[170]I),YY:[139][194](1039[170]I)[170]X[177]100[167][151](1039[170]I),100:[142]
  243. 19295 [139][194](1039[170]I)[170]X[179]1[167][151](1039[170]I),0:[142]
  244. 19296 [151](1039[170]I),[194](1039[170]I)[170]X:[142]
  245. 19299 SP[178]52825:JMP[178]1
  246. 19300 [141]19000:[153][166]12)"CHR$ELD           :";G(I)"LEFT$ASC"
  247. 19305 [151]SP,62:A[178]6:B[178]200:[153][166]12)"(null)OLIZISTEN     :";PO(I)
  248. 19307 [153][166]12)"ATNUSBILDUNG     :";[194](1087[170]I)"%"
  249. 19308 [153][166]12)"ATNUSR*STUNG     :";[194](1155[170]I)"%"
  250. 19309 [153][166]12)"(null)ONDERKOMMANDOS:";[194](1091[170]I)
  251. 19315 [153]"(null)ONDERKOMMANDO - 200 LEFT$ASC":[153]"(null)OLIZISTEN EINSTELLEN"
  252. 19316 [153]"(null)OLIZISTEN ENTLASSEN"
  253. 19319 [153]"(null)ABOTAGE":[153]"RIGHT$NFORMATIONEN":[153]"(null)ENFRE"
  254. 19325 [141]20100:[139]JMP[178]6[167]1499
  255. 19326 [139]JMP[178]4[167]42000
  256. 19328 [145]JMP[141]19420,19360,50700,0,37000:[139]JM[178]11[167]19299
  257. 19329 [137]19300
  258. 19360 A[178]0:[153]"(null)IEVIEL (null)OLIZISTEN EINSTELLEN ";:[133]A
  259. 19361 [139]A[179]0[167][153]"ONONON":[137]19360
  260. 19362 A[178]([181](A)):A(I)[178]A(I)[170]A[172]10:PO(I)[178]PO(I)[170]A:[142]
  261. 19420 [141]20050
  262. 19422 G(I)[178]G(I)[171]200:A(I)[178]A(I)[170]60:[151](1091[170]I),[194](1091[170]I)[170]1:YY[178]1:[142]
  263. 19510 A[178]1000:B[178]110:C[178]400:D[178]1071:E[178]2:G[178]60:Z[178]140:Q[178]0:[137] 20290
  264. 19515 A[178][171]1000:B[178][171]110:C[178][171]400:D[178]1071:E[178]0:G[178]0:Z[178][171]140:Q[178]60:[137] 20290
  265. 19520 A[178]1250:B[178]70:C[178]0:D[178]1099:E[178]5:G[178]100:Z[178]250:Q[178]0:[137]20290
  266. 19525 A[178][171]1250:B[178][171]70:C[178]0:D[178]1099:E[178]0:G[178]0:Z[178][171]250:Q[178]100:[137]20290
  267. 19530 A[178]2500:C[178]200:B[178]20:D[178]1055:E[178]4:G[178]140:Z[178]170:Q[178]0:[137] 20290
  268. 19535 A[178][171]2500:C[178][171]200:B[178][171]20:D[178]1055:E[178]0:G[178]0:Z[178][171]170:Q[178]140:[137] 20290
  269. 19600 X[178]0:[153]"(null)IEVIEL (null)TFRECK ";:[133]X:[139]X[179]0[167][153]"ONONON":[137]19600
  270. 19601 [139]X[178]0[167][142]
  271. 19602 [145]Y[137]19610,19620,19630
  272. 19610 A[178]X[172]800:C[178]X[172]40:D[178]1309:B[178]X[172]3:[137]20200
  273. 19620 A[178]X[172]500:C[178]X[172]50:D[178]1299:B[178]X[172]2:[137]20200
  274. 19630 A[178]X[172]300:C[178]X[172]195:D[178]1319:B[178]X[172]1:[137]20200
  275. 19650 [139][194](1159[170]I)[178]0[175]JA[177]2012[167]BB[178]1:[137]35000
  276. 19651 [141]20060:[137]2499
  277. 19676 [141]20800
  278. 19677 P[178]0:[153]"LOADVALS WIRD IN ";:B[178][181](4[172][187](1))[170]1:[145]B[137]19690,19700,19710,19719
  279. 19690 [153]"DICHTEN (null)^LDERN":A[178]3:B[178]1:C[178]2:[137]19720
  280. 19700 [153]"FLACHER (null)ANDSCHAFT":A[178]1:B[178]2:C[178]3:[137]19720
  281. 19710 [153]"SUMPFIGER (null)ANDSCHAFT":A[178]2:B[178]1:C[178]3:[137]19720
  282. 19719 [153]"HFREGELIGER (null)ANDSCHAFT":A[178]2:B[178]3:C[178]1
  283. 19720 [153]"GEK^MPFT."
  284. 19721 [141] 19890
  285. 19723 XX[178]0:YY[178]0:P[178]P[170]1:[141]20450
  286. 19725 [139][194](1299[170]I)[170][194](1309[170]I)[170][194](1319[170]I)[178]0[167]A[178]I:B[178]Y:[137]40000
  287. 19726 [139][194](1299[170]Y)[170][194](1309[170]Y)[170][194](1319[170]Y)[178]0[167]A[178]Y:B[178]I:[137]40000
  288. 19729 [139]P[178]40[170][194](1710)[172]3[167]19851
  289. 19730 Z[178]A[172][194](1299[170]I):Q[178]B[172][194](1309[170]I):W[178]C[172][194](1319[170]I):A2[178]A[172][194](1299[170]Y)
  290. 19731 B2[178]B[172][194](1309[170]Y):C2[178]C[172][194](1319[170]Y):Z[178]Z[170]Q[170]W[170][194](1399[170]I)
  291. 19732 A2[178]A2[170]B2[170]C2[170][194](1399[170]Y):M[178]Z[170]A2
  292. 19735 [139]P[178]20[170][194](1710)[172]4[167]19851
  293. 19736 [137]19855
  294. 19851 [153]"VALNDE DES (null)RIEGES !":[141]20800:[139]A2[179]Z[167]A[178]Y:B[178]I:[137]19900
  295. 19853 [139]Z[179]A2[167]A[178]I:B[178]Y:[137]19900
  296. 19854 [139]Z[178]A2[167]Z[178]Z[170]1:[153]"ONONONON":[137]19851
  297. 19855 D[178][181](M[172][187](1))[170]1:E[178][181](3[172][187](1))[170]1:[139]D[179]Z[167]X[178]Y:[141]19865
  298. 19858 [139]D[177]Z[167]X[178]I:[141]19865
  299. 19860 [137] 19723
  300. 19865 E[178][181](3[172][187](1))[170]1:[145]E[141] 19870,19875,19880:[139]YY[178]1[167]YY[178]0:[137]19865
  301. 19867 YY[178]1:[142]
  302. 19870 [139][194](1299[170]X)[179]1[167]YY[178]1:[142]
  303. 19872 [151](1299[170]X),[194](1299[170]X)[171]1:[151](1349[170]I),[194](1349[170]I)[170]1:[142]
  304. 19875 [139][194](1309[170]X)[179]1[167]YY[178]1:[142]
  305. 19876 [151](1309[170]X),[194](1309[170]X)[171]1:[151](1359[170]I),[194](1359[170]I)[170]1:[142]
  306. 19880 [139][194](1319[170]X)[179]1[167]YY[178]1:[142]
  307. 19886 [151](1319[170]X),[194](1319[170]X)[171]1:[151](1369[170]I),[194](1369[170]I)[170]1:[142]
  308. 19890 A$(1)[178]"(null)ANZER":A$(2)[178]"ASCLUGZEUGE":A$(3)[178]"RIGHT$NFANTERIE":[153]"";LN$(I)
  309. 19891 [129]X[178]1[164]3:[153]"";A$(X):[130]:[153]"";LN$(Y):[129]X[178]1[164]3
  310. 19892 [153]"";A$(X):[130]:[142]
  311. 19900 X[178][194](1299[170]A)[170][194](1309[170]A)[170][194](1319[170]A)[170][194](1349[170]A)[170][194](1359[170]A)[170][194](1369[170]A)[170]1
  312. 19901 [151](1349[170]A),0:[151](1349[170]B),0:[151](1359[170]A),0:[151](1359[170]B),0:[151](1369[170]A),0
  313. 19902 [151](1369[170]B),0
  314. 19905 Z[178][181]((LB(A)[173]X))[170]400
  315. 19915 [153]"LOAD";LN$(A)" VERLOR";
  316. 19916 [139]A[179]ZZ[176]A[178]ZZ[175]Z[177]GL(A)[167]Z[178]GL(A)
  317. 19920 [153]Z"(null)LEFT$ASC (null)AND.":LB(A)[178]LB(A)[171]Z:LB(B)[178]LB(B)[170]Z:GL(B)[178]GL(B)[170]Z:GL(A)[178]GL(A)[171]Z
  318. 19950 [141]47000:[141]20800:[139]BB[178]1[167]BB[178]0:[137]2499
  319. 19951 [142]
  320. 20000 [129]I[178]1[164]ZZ:[139] [194](1699[170]I)[178]1[167]B(I)[178]0:[137]20010
  321. 20005 P(I)[178]0:AG(I)[178]0:[141]500:[141]21000:[151](1159[170]I),0
  322. 20007 [141]23010:[151](1163[170]I),0:[141]43000
  323. 20009 [139]JA[178](2010[170][194](1711))[167]30000
  324. 20010 [139]G(I)[179]0[167][141]32000
  325. 20011 [139]I[178]ZZ[167][141]38000
  326. 20013 [130]I:JA[178]JA[170]1
  327. 20014 [129]X[178]1[164]4:[151](1167[170]X),[194](1083[170]X):[130]
  328. 20015 [139]JA[177]2011[167][141]41000
  329. 20016 X[178]0:[129]Y[178]1[164]ZZ:X[178]X[170][194](1699[170]Y):[130]:[139]X[178]ZZ[167]20700
  330. 20020 [137]20000
  331. 20050 SI[178]54272:FL[178]SI:FH[178]SI[170]1:W[178]SI[170]4:Y[178]SI[170]5:HI[178]SI[170]6:P[178]SI[170]24
  332. 20051 [151]P,15:[151]Y,16[170]9:[151]FH,29:[151]FL,19:[151]W,17:[129]T[178]1[164]500:[130]:[151]W,0:[151]Y,0:[142]
  333. 20060 SI[178]54272:FL[178]SI:FH[178]SI[170]1:TL[178]SI[170]2:TH[178]SI[170]3:W[178]SI[170]4:A[178]SI[170]5:H[178]SI[170]6:L[178]SI[170]24
  334. 20061 [129]X[178]15[164]0[169][171]1:[151]L,X:[151]A,15:[151]EH,0:[151]FH,40:[151]FL,55:[151]W,65:[130]:[151]W,0
  335. 20064 [151]A,0:[142]
  336. 20100 [161] A$:[139] A$[178]"" [167] 20100
  337. 20110 YY[178]([198](A$)):[139]YY[178]145[167]JMP[178]JMP[171]1:[141] 20160
  338. 20130 [139]YY[178]17[167]JMP[178]JMP[170]1:[141] 20170
  339. 20135 [139]YY[178]13[167][142]
  340. 20145 [137] 20100
  341. 20160 [139]JMP[178]0[167]JMP[178]A:[151]SP,32:SP[178]SP[170]B:[151]SP,62:[142]
  342. 20161 [151]SP,32:SP[178]SP[171]40:[151]SP,62:[142]
  343. 20170 [139]JMP[178]A[170]1[167]JMP[178]1:[151]SP,32:SP[178]SP[171]B:[151]SP,62:[142]
  344. 20171 [151]SP,32:SP[178]SP[170]40:[151]SP,62:[142]
  345. 20200 [139]([194](1299[170]I)[170][194](1309[170]I)[170][194](1319[170]I)[170]X)[173]9[179][178][194](1379[170]I)[167]20204
  346. 20202 [153]"ONONONSTOPVALRST (null)ASERNE KAUFEN!WAIT":[141]20800:[142]
  347. 20204 [139][194](D[170]I)[170]X[177]255[167][142]
  348. 20209 G(I)[178]G(I)[171]A:A(I)[178]A(I)[170]C:[151](D[170]I),[194](D[170]I)[170]X
  349. 20210 [139][194](1399[170]I)[170]B[177]255[167][151](1399[170]I),255:[137]20050
  350. 20211 [151](1399[170]I),[194](1399[170]I)[170]B:[137]20050
  351. 20249 [139] GL(I)[171]L[179]1[167]20060
  352. 20252 [141]20050:G(I)[178]G(I)[170]A:EB(I)[178]EB(I)[170]B:EG(I)[178]EG(I)[170]C:A(I)[178]A(I)[170]D:LB(I)[178]LB(I)[171]Q
  353. 20254 [151](F[170]I),[194](F[170]I)[170]H:AL(I)[178]AL(I)[170]J:GL(I)[178]GL(I)[171]L:BL(I)[178]BL(I)[170]L:BL(I)[178]BL(I)[171]Q
  354. 20255 [151](1039[170]I),[194](1039[170]I)[170]G:[139][194](1039[170]I)[179]5[167][151](1039[170]I),6
  355. 20257 [139][194](1039[170]I)[177]100[167] [151](1039[170]I),100:[142]
  356. 20258 [142]
  357. 20290 [139][194](1095[170]I)[177]200[167]49000
  358. 20291 [153]"(null)IEVIEL (null)TFRECK ";:[133]V
  359. 20292 X[178]V:[139]JM[178]2[176]JM[178]4[176]JM[178]6[167]V[178]V[171](V[172]2)
  360. 20293 [139][194](D[170]I)[170]V[179]0[167][153]"ONONON":[137]20290
  361. 20294 [139]V[178]0[167][142]
  362. 20295 [139]GL(I)[171]X[172]G[179]0[176][194](D[170]I)[170]V[177]255[176]X[179]0[167][153]"ONONON":[137]20290
  363. 20300 G(I)[178]G(I)[171]X[172]A:A(I)[178]A(I)[170]X[172]B:UP(I)[178]UP(I)[170]X[172]C:[151](D[170]I),[194](D[170]I)[170]V
  364. 20302 BL(I)[178]BL(I)[170]X[172]G:GL(I)[178]GL(I)[171]X[172]G
  365. 20304 [139][194](1095[170]I)[170]X[172]E[177]255[167][151](1095[170]I),255:[137]20307
  366. 20305 [151](1095[170]I),[194](1095[170]I)[170]X[172]E
  367. 20307 EB(I)[178]EB(I)[170]X[172]Z:LB(I)[178]LB(I)[171]X[172]Q:BL(I)[178]BL(I)[171]X[172]Q:[137]20050
  368. 20350 [153]"(null)IEVIEL (null)TFRECK ";:[133]X
  369. 20351 V[178]X:[139]JM[178]2[176]JM[178]4[176]JM[178]6[167]V[178]X[171](X[172]2)
  370. 20352 [139]X[178]0[167][142]
  371. 20353 [139]GL(I)[171]X[172]J[179]0[176][194](A[170]I)[170]V[177]255[176][194](A[170]I)[170]V[179]0[167][153]"ONONON":[137]20350
  372. 20360 AL(I)[178]AL(I)[170]X[172]D:[151](A[170]I),[194](A[170]I)[170]V:PI(I)[178]PI(I)[170]X[172]E
  373. 20362 GL(I)[178]GL(I)[171]X[172]J:LH(I)[178]LH(I)[170]X[172]F:EB(I)[178]EB(I)[170]X[172]G:G(I)[178]G(I)[170]X[172]H
  374. 20364 BL(I)[178]BL(I)[170]X[172]J:A(I)[178]A(I)[170]X[172]Z:LB(I)[178]LB(I)[171]X[172]Q:BL(I)[178]BL(I)[171]X[172]Q:[137]20050
  375. 20400 [139]GL(I)[171]Z[179]1[167]20060
  376. 20402 G(I)[178]G(I)[171]A:[151](B[170]I),[194](B[170]I)[170]C:LA(I)[178]LA(I)[170]D:GK(I)[178]GK(I)[170]E
  377. 20403 AL(I)[178]AL(I)[170]G:A(I)[178]A(I)[170]X:GL(I)[178]GL(I)[171]Z:EB(I)[178]EB(I)[170]TY
  378. 20405 LB(I)[178]LB(I)[171]Q:BL(I)[178]BL(I)[171]Q:[137]20050
  379. 20450 [153]"     CMDCMDCMDCMD"[194](1299[170]I)
  380. 20451 [153]"     CMDCMDCMDCMD"[194](1309[170]I)
  381. 20452 [153]"     CMDCMDCMDCMD"[194](1319[170]I)
  382. 20453 [153]"     CMDCMDCMDCMD"[194](1299[170]Y)
  383. 20454 [153]"     CMDCMDCMDCMD"[194](1309[170]Y)
  384. 20455 [153]"     CMDCMDCMDCMD"[194](1319[170]Y)
  385. 20465 [142]
  386. 20500 [151]198,0:[153]"(null)IE HABEN";G(I)"LEFT$ASC ZUR (null)ERFFREGUNG."
  387. 20501 B[178]0:[153]"(null)IEVIEL LEFT$ASC WOLLEN SIE BEREITSTELLEN";[166]5):[133]B
  388. 20502 [139] B[177][171]0.01[167]20505
  389. 20503 [137]20500
  390. 20505 G(I)[178]G(I)[171]B:[142]
  391. 20550 X[178][194](1023[170]I)[172]2[170][194](1031[170]I)[172]3[170][194](1055[170]I)[172]2[170][194](1071[170]I)[172]1[170][194](1099[170]I)[172]1
  392. 20551 X[178]X[170][194](1119[170]I)[172]3.5[170][194](1123[170]I)[172]2[170](AC(I)[173]100)[170][194](1380[170]I)[172]0.5[170][194](1128[170]I)[172]0.5
  393. 20554 X[178]X[170][194](1135[170]I)[172]0.5:X[178]([181](X)):[139][194](1043[170]I)[171]X[179]1[167][151](1043[170]I),0:[142]
  394. 20555 [151](1043[170]I),[194](1043[170]I)[171]X:[142]
  395. 20700 [153]"LOAD(null)OLLEN SIE NOCH EIN (null)PIEL WAGEN (S)"
  396. 20720 [153]"ODER LIEBER AUFH\REN (A) ?"
  397. 20730 [161]A$:[139]A$[178]""[167]20730
  398. 20740 [139]A$[178]"S"[167][138]
  399. 20741 [139]A$[178]"A"[167][158]64738
  400. 20743 [137]20730
  401. 20800 [151]198,0:[146]198,1:[151]198,0:[142]
  402. 20950 [129]X[178]1[164]40:[151](1299[170]X),6:[130]:[129]X[178]1[164]30:[151](1349[170]X),0:[130]
  403. 20955 [129]X[178](ZZ[170]1)[164]10:LB(X)[178]20000:[130]
  404. 20960 [129]X[178]1[164]10:[135]LN$(X):[130]:[137]20980
  405. 20965 [131]"STR$EUTSCHLAND","ASCRANKREICH","(null)CHWEDEN","STR$^NEMARK","LEFT$OLLAND"
  406. 20970 [131]"(null)CHWEIZ","RIGHT$TALIEN","VALNGLAND","POSSTERREICH","(null)PANIEN"
  407. 20980 [129]X[178]1[164]10:Y[178][181](10[172][187](1))[170]20:[151](1399[170]X),Y:[151](1699[170]X),0:[130]:[142]
  408. 21000 [141]19000:[153]"VALNERGIE:"
  409. 21002 [139][194](1039[170]I)[171][194](1075[170]I)[179]1[167][151](1039[170]I),0:[137]21020
  410. 21004 [151](1039[170]I),[194](1039[170]I)[171][194](1075[170]I)
  411. 21020 [153]"(null)RODUKTION      :";EG(I)"(null)LEFT$ASC"
  412. 21021 [153]"(null)ORRAT          :";EV(I)"(null)LEFT$ASC"
  413. 21025 [153]"VALNERGIE BEN\TIGT:";EB(I)"(null)LEFT$ASC":EV(I)[178](EV(I)[170]EG(I))[171]EB(I):G[178]1
  414. 21030 [139]EV(I)[179]0[167]G[178]EV(I):EV(I)[178]0
  415. 21031 [139]G[177]0[167]21305
  416. 21050 X[178][181](G[172][171]1.98):G(I)[178]G(I)[171]X:[153]"(null)U WENIG VALNERGIE,ES ENTSTANDEN"
  417. 21060 [153]"(null)CH^DEN IN LEFT$\HE VON";X"LEFT$ASC.":G(I)[178]G(I)[171]X
  418. 21145 [151](1155[170]I),[194](1155[170]I)[171]1
  419. 21305 [153]"MID$USTIZ:"
  420. 21306 X[178][181](750[172][187](1))[170]750:X[178]X[171][194](1087[170]I)[171][194](1155[170]I)[171]PO(I):[139]X[179]50[167][141]52000
  421. 21310 [153]"BEGANGENE (null)ERBRECHEN :";X
  422. 21315 Y[178][181](X[173]([194](1075[170]I)[170]3)):[153]"CHR$EF^NGNISSTRAFEN     :";Y
  423. 21320 X[178][181](X[172]1.9):[153]"ENTSTANDENER (null)CHADEN :";X"LEFT$ASC":G(I)[178]G(I)[171]X
  424. 21395 X[178][194](1067[170]I)[172]100:[139]Y[179]X[167]21490
  425. 21450 [153]"(null)U WENIG CHR$EF^NGNISSE,ES ENTSTANDEN"
  426. 21453 Y[178]X[171]Y[172][171]5:[153]"VALXTRAKOSTEN IN LEFT$\HE VON";Y"LEFT$ASC.":G(I)[178]G(I)[171]Y
  427. 21490 [141]20800
  428. 21499 [141]19000:[153]"VALINNAHMEN DURCH"
  429. 21500 Y[178][181](1000[172][187](1))[170]99:X[178]((EW(I)[173]0.3)[170]Y)[173]100[172][194](1083[170]I):X[178]([181](X[172]2))
  430. 21510 [153]"- (null)TEUERN               :";X"LEFT$ASC":G(I)[178]G(I)[170]X
  431. 21520 X[178]([181](EB(I)[173]3.34)):[153]"- (null)TROMVERKAUF ANS (null)OLK :";X"LEFT$ASC":G(I)[178]G(I)[170]X
  432. 21521 [139]AL(I)[179]1[167]21550
  433. 21536 X[178][181](AL(I)[173]0.911):G(I)[178]G(I)[170]X:[153]"- ATNBGABEN VON ATNUSL^NDERN:";X"LEFT$ASC"
  434. 21550 Y[178][181](999[172][187](1)):X[178][181](UP(I)[173]32.72)[172][194](1095[170]I)[170]Y[171]([194](1079[170]I)[172]30)
  435. 21555 [139]X[179]1000[167]X[178]1000
  436. 21590 [153]"- (null)OURISMUS             :";X"LEFT$ASC
  437. 21591 G(I)=G(I)+X
  438. 21600 Z=INT(UP(I)/100)*PEEK(1079+I):X=INT((Z/2)*RND(1)):Z=Z+X
  439. 21630 PRINT"- [218]OLL                  :";Z"[200][198]":G(I)=G(I)+Z:GOSUB46000
  440. 21690 Q=INT(3*RND(1))+5:Y=X*Q:PRINT"- [201]NDUSTRIE             :";Y"[200][198]"
  441. 21691 G(I)=G(I)+Y:IFZ=1THENGOSUB46002
  442. 21750 GOSUB20800:GOSUB44000:GOTO45000
  443. 21751 GOSUB33000
  444. 21752 IFAL(I)=0THEN21755
  445. 21753 X=INT(AL(I)/200):IFPEEK(1039+I)-X<1THENPOKE(1039+I),0:GOTO21755
  446. 21754 POKE(1039+I),PEEK(1039+I)-X
  447. 21755 GOSUB19000:PRINT"[197]RNTE"
  448. 21757 PRINT"[215]ETTERLAGE    :";
  449. 21760 X=INT(4*RND(1))+1:ONXGOTO21770,21780,21790,21800,21
  450. 21770 PRINT"[196]*RRE":X=5:GOTO21820
  451. 21780 PRINT"SEHR TROCKEN":X=6.5:GOTO21820
  452. 21790 PRINT"NORMAL":X=12:GOTO21820
  453. 21800 PRINT"SEHR GUT":X=16:GOTO21820
  454. 21810 PRINT"ZU FEUCHT":X=9:GOTO21820
  455. 21820 IFW>300THENZ=INT(4000*RND(1)):GOTO21830
  456. 21823 Z=0
  457. 21830 Y=INT((W*X)+Z):PRINT"[197]RNTE         :";Y"[199][200][198]"
  458. 21839 PRINT"[214]ORRAT        :";GV(I)"[199][200][198]"
  459. 21842 PRINT"[214]ERBRAUCH     :";GB(I)"[199][200][198]":GV(I)=GV(I)+Y
  460. 21843 IFGB(I)>GK(I)ANDGV(I)>GK(I)THENGOSUB20800:GOSUB49500
  461. 21844 IFGV(I)<0THENGV(I)=0
  462. 21845 IFGV(I)<GB(I)THEN21870
  463. 21846 IFYY=1THENYY=0:GOTO21890
  464. 21847 IFXX=512THENXX=0:GOTO21900
  465. 21848 GOTO21890
  466. 21870 PRINT"[196]ADURCH,DASS SIE ZU WENIG [199]ETREIDE"
  467. 21872 X=GB(I)-GV(I):X=X/10:X=(INT(X)):PRINT"HATTEN,VERHUNGERTEN";X"[205]ENSCHEN."
  468. 21874 EW(I)=EW(I)-X:X=X/50:X=(INT(X))
  469. 21875 IF(PEEK(1039+I)-X)<0THEN POKE(1039+I),0:GOTO21890
  470. 21876 POKE(1039+I),PEEK(1039+I)-X
  471. 21890 GOSUB20800
  472. 21900 IFGV(I)<0THENGV(I)=0
  473. 21909 IFGV(I)<GB(I)THENX=GV(I):GOTO21955
  474. 21910 X=GB(I)
  475. 21955 GOSUB19000:PRINT"[197]INNAHMEN DURCH [199]ETREIDEVERKAUF":W=INT(X/1.42)
  476. 21961 W=W+V:PRINT"AN IHR [214]OLK :";W"[200][198]":P(I)=P(I)+W:GV(I)=GV(I)-GB(I)
  477. 21962 IFGV(I)<0THENGV(I)=0
  478. 21963 IFGV(I)<LA(I)THEN22000
  479. 21993 X=GV(I)-LA(I):GV(I)=LA(I):PRINT"[196]A SIE ZU WENIG [204]AGERPLATZ HATTEN"
  480. 21995 PRINT"VERSCHIMMELTEN";X"[199][200][198]."
  481. 22000 PRINT"[193]LLGEMEINE [213]NTERHALTSKOSTEN :";A(I)"[200][198]":GOSUB20800
  482. 22002 G(I)=G(I)-A(I)
  483. 22055 GOSUB19000:GOSUB20550:PRINT"[213]MWELTSCHUTZGRUPPEN VERLANGEN"
  484. 22060 Y=(100-PEEK(1043+I))*165:X=INT(700*RND(1)):Z=(JA-2010)*121:Y=Y+X+Z
  485. 22062 PRINT"VON [201]HNEN,";Y"[200][198] F*R DEN":PRINT"[213]MWELTSCHUTZ AUSZUGEBEN."
  486. 22091 GOSUB20500:W=INT(B/165):IFPEEK(1043+I)+W>100THENPOKE(1043+I),100:GOTO22150
  487. 22092 POKE(1043+I),PEEK(1043+I)+W
  488. 22150 GOSUB 19000
  489. 22210 Q=(INT(EW(I)/2244)):IFPEEK(1039+I)-Q<1THENPOKE(1039+I),0:GOTO22218
  490. 22213 POKE(1039+I),PEEK(1039+I)-Q
  491. 22218 Y=(100-PEEK(1039+I))*523:Z=(JA-2010)*251
  492. 22219 X=INT(500*RND(1)):Y=Y+X+Z:PRINT"[196]AS [214]OLK VERLANGT";Y"[200][198] VON"
  493. 22220 PRINT"[201]HNEN,UM \FFENTLICHE [197]INRICHTUNGEN":PRINT"FINANZIEREN ZU K\NNEN."
  494. 22235 GOSUB20500:X=INT(B/523):IFPEEK(1039+I)+X>100THENPOKE(1039+I),100:GOTO22305
  495. 22240 POKE(1039+I),PEEK(1039+I)+X
  496. 22305 GOSUB47500:IFPEEK(1043+I)<50THENGOSUB22400
  497. 22320 IFPEEK(1039+I)<40THENGOSUB22500
  498. 22325 RETURN
  499. 22400 GOSUB19000:X=INT(4*RND(1))+1:PRINT"[196]URCH DEN SCHLECHTEN [218]USTAND"
  500. 22410 Y=100-PEEK(1043+I):X=X*Y:X=(INT(X)):Y=INT(9*RND(1))+1:X=X+Y
  501. 22411 PRINT"DER [213]MWELT STARBEN"
  502. 22412 PRINT"";X"[205]ENSCHEN AN SCHWEREN [214]ERGIFT-"
  503. 22415 PRINT"UNGEN.[196]AS [214]OLK IST DAR*BER SEHR VER-"
  504. 22420 PRINT"^RGERT UND FORDERT SIE AUF,MEHR F*R":EW(I)=EW(I)-X
  505. 22425 PRINT"DIE [213]MWELT ZU TUN.":X=X/20
  506. 22426 IFPEEK(1039+I)-X<1THENPOKE(1039+I),0:GOTO22430
  507. 22427 POKE(1039+I),PEEK(1039+I)-X
  508. 22430 GOTO20800
  509. 22500 GOSUB31000:PRINT"[146][208]RESIDENT ";N$(I)" IST LEIDER AUSGE-"
  510. 22510 PRINT"SCHEIDEN.[197]R WURDE VON SEINEM W*TENDEM"
  511. 22515 PRINT"[214]OLK GEBLENDET UND VERBANNT.":PRINT"IHRE POLITISCHE [203]ARRIERE IST DAMIT"
  512. 22525 PRINT"WOHL BEENDET.":T(I)=1:GOTO20800
  513. 22600 IFPEEK(1379+I)<1THENPOKE(1152+I),0:RETURN
  514. 22610 GOSUB19000:Z=PEEK(1379+I)*99:X=Z/100:PRINT"[196]IE [211][193][199] FORDERT VON IHNEN,"
  515. 22630 PRINT"";Z"[200][198] F*R DIE [211]ICHERUNG VON"
  516. 22635 PRINT"[203]ASERNEN BEREITZUSTELLEN.":GOSUB20500:Y=B/X
  517. 22636 IFPEEK(1151+I)+Y>100THENPOKE(1151+I),100:RETURN
  518. 22637 POKE(1151+I),Y:RETURN
  519. 23010 X=INT(54*RND(1))+1:IFX>27THENRETURN
  520. 23015 GOSUB19000:PRINTSPC(13)"[197][210][197][201][199][206][201][211][211]"
  521. 23020 ON X GOTO23100,23200,23300,23400,23500,23600,23700,23800,23900,24000
  522. 23025 ONX-10GOTO24100,24200,24300,24400,24500,24600,24700,24800,24900,25000
  523. 23030 ONX-20GOTO25100,25200,25300,25400,25500,25600,25700
  524. 23100 Y=INT(4*RND(1))+1:ONYGOTO23105,23107,23109,23111
  525. 23105 A=1027:B$=" [215]INDRAD":EG(I)=EG(I)-5000:A(I)=A(I)-60:EV(I)=EV(I)-50
  526. 23106 GL(I)=GL(I)+25:GOTO23115
  527. 23107 A=1031:B$=" [211]TAUDAMM":EG(I)=EG(I)-11000:A(I)=A(I)-40
  528. 23108 GL(I)=GL(I)+200:EB(I)=EB(I)-100:GOTO23115
  529. 23109 A=1071:B$=" [200]OTEL":EB(I)=EB(I)-140:A(I)=A(I)-110:GL(I)=GL(I)+60
  530. 23110 UP(I)=UP(I)-400:GOTO23115
  531. 23111 A=1123:B$="E [198]ABRIK":PI(I)=PI(I)-3000:EB(I)=EB(I)-500
  532. 23112 A(I)=A(I)-120:BL(I)=BL(I)-100
  533. 23115 IFPEEK(A+I)<1THEN RETURN
  534. 23116 Y=INT(3*RND(1))+1:ONYGOTO23117,23118,23119
  535. 23117 A$="[212]ERRORANSCHLAG":GOTO23120
  536. 23118 A$="[194]RAND":GOTO23120
  537. 23119 A$="[201]RRTUM EINER [193]BRISSFIRMA"
  538. 23120 PRINT"[196]URCH EINEN ";A$
  539. 23121 PRINT"VERLOREN [211]IE EIN";B$"."
  540. 23130 Z=INT(2000*RND(1))+1000:PRINT"[211]CHADEN :";Z"[200][198]"
  541. 23135 POKE(A+I),PEEK(A+I)-1:GOTO20800
  542. 23200 PRINT"[215]OLLEN SIE EIN LANDESWEITES [203]INDER-"
  543. 23205 PRINT"FEST VERANSTALTEN (J/N) ?"
  544. 23210 GETA$:IFA$=""THEN23210
  545. 23215 IFA$="J" THEN23230
  546. 23220 IFA$="N" THEN23260
  547. 23225 GOTO 23210
  548. 23230 PRINT"[196]ER [197]RFOLG WAR RIESIG,DIE [203]OSTEN"
  549. 23235 PRINT"LEIDER AUCH! [196]AS [199]ANZE KOSTETE N^MLICH"
  550. 23240 X=(INT(EW(I)/3)/3):Y=INT(X*RND(1))+2000:PRINT"";Y"[200][198].":G(I)=G(I)-Y
  551. 23245 POKE(1039+I),PEEK(1039+I)+3:IFPEEK(1039+I)>100THENPOKE(1039+I),100
  552. 23255 GOTO23280
  553. 23260 GOSUB50760:PRINT"[201]HREN [199]EIZ !"
  554. 23270 IFPEEK(1039+I)-3<1THENPOKE(1039+I),0:GOTO23280
  555. 23275 POKE(1039+I),PEEK(1039+I)-3
  556. 23280 GOTO20800
  557. 23300 PRINT"[197]XTRA [211]TEUEREINNAHMEN DURCH EINE"
  558. 23305 X=INT(2000*RND(1))+2000:PRINT"PRIVATE [204]OTTERIE :";X"[200][198]":G(I)=G(I)+X:GOTO20800
  559. 23400 PRINT"[212]ASTE !":GOTO20800
  560. 23500 X=INT(5*RND(1))+1:IFX>1THENPRINT"[212]ASTE !":GOTO20800
  561. 23503 GOSUB31000:PRINT"";N$(I)" IST LEIDER VER-"
  562. 23506 PRINT"STORBEN.[197]IN [212]ERRORIST DRANG IN SEINE"
  563. 23510 PRINT"[214]ILLA EIN UND VERGIFTETE IHN.":GOTO20800
  564. 23600 PRINT"[197]IN [185]LTRANSPORTER LIEF AUS UND VER-
  565. 23605 [153]"SEUCHTE DAS CHR$RUNDWASSER.STR$IE"
  566. 23610 X[178][181](1000[172][187](1)[170]750):[153]"VALNTSEUCHUNG KOSTETE";X"LEFT$ASC.":G(I)[178]G(I)[171]X
  567. 23615 [137]20800
  568. 23700 [153]"VALIN RIGHT$NDUSTRIELLER WIRD VERD^CHTIGT,"
  569. 23710 [153]"(null)TEUERN HINTERZOGEN ZU HABEN.(null)OLLEN"
  570. 23720 [153]"SIE EINEN (null)ROZESS (J/N) ?"
  571. 23725 [161]A$:[139] A$[178]""[167] 23725
  572. 23730 [139]A$[178]"J"[167]23750
  573. 23735 [139]A$[178]"N"[167][142]
  574. 23740 [137] 23725
  575. 23750 X[178][181](2[172][187](1))[170]1:[139]X[178]1[167]23760
  576. 23754 [137]23770
  577. 23760 [153]"(null)IE HABEN GEWONNEN UND BEKOMMEN"
  578. 23762 X[178][181](3000[172][187](1))[170]1000:[153]"";X"LEFT$ASC.":G(I)[178]G(I)[170]X:[137]20800
  579. 23770 X[178]([181](1000[172][187](1))[170]500):[153]"(null)IE HABEN VERLOREN."
  580. 23771 [153]"CHR$ERICHTSKOSTEN :";X"LEFT$ASC":[137]20800
  581. 23800 [153]"PEEKEI EINEM ASCUSSBALLSPIEL WURDEN"
  582. 23805 X[178][181](5[172][187](1))[170]5:[153]"";X"ASCANS BEI (null)RFREGELEIEN GET\TET.":[141]50760
  583. 23816 [153]"RIGHT$HRE (null)OLIZEI.":[139][194](1039[170]I)[171]3[179]1[167] [151](1039[170]I),0:[137]20800
  584. 23820 [151](1039[170]I),[194](1039[170]I)[171]3:[137]20800
  585. 23900 [153]"CHR$EISELDRAMA !":X[178][181](3[172][187](1))[170]2:[153]"PEEKEI EINEM PEEKANKFREBERFALL WURDEN";X
  586. 23904 [153]"(null)EUTE ALS CHR$EISELN GENOMMEN.":[139][194](1091[170]I)[179]1[167]23930
  587. 23908 [153]"RIGHT$HR (null)ONDERKOMMANDO STFRERMTE DIE PEEKANK"
  588. 23910 [153]"UND BEFREITE DIE CHR$EISELN.STR$IE CHR$EISEL-":[153]"NEHMER WURDEN ERSCHOSSEN."
  589. 23918 X[178][181](1000[172][187](1))[170]1000:[153]"(null)OSTEN:";X"LEFT$ASC":G(I)[178]G(I)[171]X
  590. 23920 [139][194](1039[170]I)[170]4[177]100[167][151](1039[170]I),100:[137]20800
  591. 23922 [151](1039[170]I),[194](1039[170]I)[170]4:[137]20800
  592. 23930 [153]"STR$A SIE KEIN (null)ONDERKOMMANDO HATTEN,"
  593. 23932 [153]"MUSSTE MAN DEN ASCORDERUNGEN NACHGEBEN."
  594. 23934 Y[178][181](X[172][187](1))[170]2:[153]"";Y"CHR$EISELN SIND UMS (null)EBEN GE-"
  595. 23936 [153]"KOMMEN.STR$AS (null)OLK IST SEHR VER^RGERT":EW(I)[178]EW(I)[171]Y
  596. 23938 [153]"DARFREBER,DASS KEIN (null)ONDERKOMMANDO"
  597. 23939 [153]"VORHANDEN WAR."
  598. 23940 [139][194](1039[170]I)[171]4[179]1[167][151](1039[170]I),0:[137]20800
  599. 23942 [151](1039[170]I),[194](1039[170]I)[171]4:[137]20800
  600. 24000 [153]"(null)ASTE !":[137]20800
  601. 24100 [153]"(null)IE MUSSTEN EINEN 40 MID$AHRE ALTEN"
  602. 24105 X[178][181](1000[172][187](1))[170]1000:[153]"(null)REDIT ZURFRECKZAHLEN.";:G(I)[178]G(I)[171]X
  603. 24106 [153]"(null)OSTEN:";X"LEFT$ASC":[137]20800
  604. 24200 [153]"RIGHT$HRE ATNRMEE HAT BEI EINEM INTER-":[153]"NATIONALEN UND KOSTENLOSEN ATNUS-"
  605. 24210 [153]"BILDUNGSWETTBEWERB TEILGENOMMEN.RIGHT$HRE"
  606. 24215 [153]"(null)AMPFST^RKE STIEG.":[139][194](1115[170]I)[170]4[177]100[167][151](1115[170]I),100:[137]20800
  607. 24220 [151](1115[170]I),[194](1115[170]I)[170]4:[137]20800
  608. 24300 [153]"ATNUS DEM (null)ERKAUF ALTER (null)AGERBEST^NDE"
  609. 24305 X[178][181](2000[172][187](1))[170]1000:[153]"ERHALTEN SIE";X"LEFT$ASC.":[137]20800
  610. 24400 [153]"VALINE (null)ENTEN-(null)ONDERZAHLUNG IST F^LLIG."
  611. 24405 X[178][181](2000[172][187](1))[170]1500:G(I)[178]G(I)[171]X:[153]"(null)OSTEN :";X"LEFT$ASC":[137]20800
  612. 24500 [153]"PEEKEI EINER LEFT$OCHWASSERKATASTROPHE"
  613. 24505 X[178][181](5000[172][187](1))[170]3000:[153]"ENTSTAND EIN (null)ACHSCHADEN VON";X"LEFT$ASC."
  614. 24510 G(I)[178]G(I)[171]X:X[178][181](100[172][187](1))[170]20:[153]"";X"(null)ENSCHEN KAMEN UMS (null)EBEN."
  615. 24515 EW(I)[178]EW(I)[171]X:[137]20800
  616. 24600 X[178][181](250[172][187](1))[170]200:[153]"VALINE CHR$RUPPE VON";X"POLITISCH"
  617. 24605 [153]"(null)ERFOLGTEN WURDE IN RIGHT$HR (null)AND AUFGE-"
  618. 24610 [153]"NOMMEN.":EW(I)[178]EW(I)[170]X:[137]20800
  619. 24700 [153]"RIGHT$N EINER (null)LINIK FIEL DER (null)TROM AUS."
  620. 24705 [153]"STR$A KEIN (null)OTSTROM-ATNGGREGAT VORHANDEN"
  621. 24710 X[178][181](15[172][187](1))[170]10:[153]"WAR STARBEN,";X"(null)ENSCHEN."
  622. 24715 [141]50760:[153]"DAS ASCEHLEN EINES (null)OTSTROM-":EW(I)[178]EW(I)[171]X
  623. 24720 [153]"AGGREGATS IN EINER (null)LINIK."
  624. 24725 Y[178][181](100[172][187](1))[170]50:Y[178]X[172]Y:[153]"STR$IE VALNTSCH^DIGUNGEN F*R DIE ASCAMILIEN"
  625. 24730 [153]"BELAUFEN SICH AUF";Y"LEFT$ASC.":G(I)[178]G(I)[171]Y
  626. 24735 [139][194](1039[170]I)[171]5[179]1[167][151](1039[170]I),0:[137]20800
  627. 24740 [151](1039[170]I),[194](1039[170]I)[171]5:[137]20800
  628. 24800 [153]"(null)IE BEKOMMEN EINEN (null)REDIT IN LEFT$\HE VON"
  629. 24805 X[178][181](7000[172][187](1))[170]3000:[153]"";X"LEFT$ASC ZURFRECK.":G(I)[178]G(I)[170]X:[137]20800
  630. 24900 [153]"RIGHT$HR (null)TAAT BEKAM DURCH EIN ASC\RDER-"
  631. 24905 [153]"UNGSPROJEKT EINEN (null)USCHUSS IN LEFT$\HE"
  632. 24910 X[178][181](10000[172][187](1))[170]5000:[153]"VON";X"LEFT$ASC.":G(I)[178]G(I)[170]X:[137]20800
  633. 25000 X[178][181](5[172][187](1))[170]1:[139]X[177]2[176][194](1023[170]I)[178]0[167][153]"(null)ASTE !":[137]20800
  634. 25020 [153]"VALINES RIGHT$HRER (null)ERNKRAFTWERKE IST IN"
  635. 25022 [153]"DIE (null)UFT GEFLOGEN.RIGHT$M GANZEN (null)AND BE-"
  636. 25025 [153]"GANN EIN (null)ASSENSTERBEN."
  637. 25030 [153]"RIGHT$HR (null)AND IST F*R DIE DIE N^CHSTEN 50"
  638. 25035 [153]"MID$AHRE NICHT MEHR BEWOHNBAR."
  639. 25040 [153]"(null)IE STARBEN EBENFALLS,WOMIT DAS":[151](1699[170]I),1
  640. 25045 [153]"(null)PIEL FFRER SIE LEIDER BEENDET IST.":[137]20800
  641. 25100 [153]"STR$URCH PEEKRANDSTIFTUNG IN EINEM RIGHT$HRER"
  642. 25105 [153]"PEEKFREROS ENSTAND EIN (null)ACHSCHADEN VON":X[178][181](3000[172][187](1))[170]2000
  643. 25110 [153]"";X"LEFT$ASC.":G(I)[178]G(I)[171]X:[137]20800
  644. 25200 [153]"PEEKEI EINEM CHR$RUBENUNGLFRECK KAMEN"
  645. 25205 X[178][181](20[172][187](1))[170]5:EW(I)[178]EW(I)[171]X:Y[178][181](3000[172][187](1))[170]2000:G(I)[178]G(I)[171]Y
  646. 25210 [153]"";X"(null)ENSCHEN UMS (null)EBEN.(null)IE MUSSTEN"
  647. 25215 [153]"";Y"LEFT$ASC AN DIE ASCAMILIEN DER (null)PFER"
  648. 25220 [153]"BEZAHLEN.":[137]20800
  649. 25300 [139][194](1043[170]I)[177]50[167][153]"(null)ASTE !":[137]20800
  650. 25305 [153]"(null)MWELTSCHUTZGRUPPEN VERANSTALTETEN"
  651. 25310 [153]"MEHRERE (null)ASSENDEMOS,UM AUF DEN"
  652. 25315 [153]"SCHLECHTEN (null)MWELTZUSTAND AUFMERKSAM"
  653. 25320 [153]"ZU MACHEN.":[137]20800
  654. 25400 [139][194](1023[170]I)[179]10[167][153]"(null)ASTE !":[137]20800
  655. 25405 [153]"STR$AS (null)OLK FORDERT SIE AUF,WENIGER"
  656. 25406 [153]"(null)ERNKRAFTWERKE ZU BAUEN.":[137]20800
  657. 25500 [153]"RIGHT$HR (null)EKRET^R MACHTE SICH MIT"
  658. 25505 X[178][181](3000[172][187](1))[170]999:[153]"";X"LEFT$ASC AUS DEM (null)TAUB.":[137]20800
  659. 25525 X[178][181](20[172][187](1))[170]5:EW(I)[178]EW(I)[171]X:Y[178]X[173]2
  660. 25600 [153]"(null)IE WERDEN AUFGEFORDERT,LEFT$ILFSGFRETER"
  661. 25610 [153]"FFRER VALRDBEBENOPFER IN MID$APAN BE-"
  662. 25620 [153]"REITZUSTELLEN.STR$IE (null)OSTEN SIND NOCH"
  663. 25630 [153]"NICHT ABSCH^TZBAR.RIGHT$HR (null)OLK FORDERT"
  664. 25640 [153]"SIE AUF,ZU SPENDEN.(null)OLLEN SIE"
  665. 25650 [153]"DIE LEFT$ILFSGFRETER BEREITSTELLEN (J/N) ?"
  666. 25660 [161]A$:[139]A$[178]""[167]25660
  667. 25670 [139]A$[178]"J"[167]25690
  668. 25675 [139]A$[178]"N"[167]25682
  669. 25676 [137]25660
  670. 25682 [141]50760:[153]"IHREN CHR$EIZ !":[139][194](1039[170]I)[171]4[179]0[167][151](1039[170]I),0:[137]20800
  671. 25683 [151](1039[170]I),[194](1039[170]I)[171]4:[137]20800
  672. 25690 [153]"STR$AS (null)OLK IST FREBER IHRE LEFT$ILFSBEREIT-"
  673. 25691 X[178][181](3000[172][187](1))[170]2500:G(I)[178]G(I)[171]X:[151](1039[170]I),[194](1039[170]I)[170]2
  674. 25692 [153]"SCHAFT SEHR ERFREUT.(null)OSTEN:";X"LEFT$ASC":[137]20800
  675. 25693 [139][194](1039[170]I)[177]100[167][151](1039[170]I),100
  676. 25700 [153]"STR$IE (null)ENOVIERUNG DER ATNLTSTADT RIGHT$HRER":X[178][181](2000[172][187](1))[170]1000
  677. 25705 [153]"LEFT$AUPTSTADT KOSTET (null)IE";X"LEFT$ASC.":G(I)[178]G(I)[171]X:[137]20800
  678. 30000 [153]"LOAD       LEFT$ERZLICHEN CHR$L*CKWUNSCH,"
  679. 30005 [153]"(null)IE HABEN RIGHT$HRE ATNMTSZEIT *BERSTANDEN."
  680. 30010 X[178]1:Y[178]LB(X):[129]Z[178]1[164]9:[139]LB(Z)[177]Y[167]Y[178]LB(Z):X[178]Z:[130]
  681. 30015 [130]
  682. 30030 [153]"(null)IEGER IST ";LN$(X)",DESSEN (null)R^SI-"
  683. 30040 [153]"DENT NUN DIE GANZE VALCHR$ REGIEREN WIRD."
  684. 30050 [153]"STR$IE ANDEREN (null)R^SIDENTEN SIND WEGEN"
  685. 30060 [153]"MANGELNDER ASCFREHRUNGSF^HIGKEIT AUSGE-"
  686. 30070 [153]"GESCHIEDEN.":[141]20800:[138]
  687. 31000 [153]"LOADSYS          [        [        ["
  688. 31005 [153]"          ]        ]        ]"
  689. 31006 [141]31010:[137]31011
  690. 31010 [129]A[178]1[164]2:[153]"STOP         ":[130]A:[142]
  691. 31011 [153]"STOP  STOP   STOP   STOP "
  692. 31012 [153]"STOP  STOP   STOP   STOP "
  693. 31013 [153]"STOP         "
  694. 31014 [153]"STOP  STOP   STOP   STOP "
  695. 31015 [153]"STOP  STOP   STOP   STOP "
  696. 31017 [141]31010
  697. 31019 [153]"STOP                                        "
  698. 31020 [153]"ONSTOP                                        CONTSTOPWAIT";:[142]
  699. 31130 C2[178][194](1200[170]C):A2[178]A2[170]B2[170]C2[170]50
  700. 32000 [141]31000:[153]"STR$A SIE ANSCHEINEND NICHT MIT CHR$ELD"
  701. 32010 [153]"UMGEHEN K\NNEN UND IN DIE (null)INUSZAHLEN"
  702. 32020 [153]"WIRTSCHAFTETEN,WURDEN SIE VON RIGHT$HREM"
  703. 32025 [153]"WFRETENDEM (null)OLK ERSCHLAGEN !":[151](1035[170]I),1:[137]20800
  704. 32145 [151](1155[170]I),[194](1155[170]I)[171]2:[137]19299
  705. 33000 [141]19000:[153]"(null)ANDWIRTSCHAFT":[139]GV(I)[178]0[167]33100
  706. 33003 [139]GV(I)[179]SG(I)[167][153][166]9)"(null)(null)CLOSE(null)VAL(null)RIGHT$CHR$CLOSE(null)ATNATN(null)CHR$(null)(null)!!!"
  707. 33005 [153]"(null)OSTEN FFRER"
  708. 33010 X[178]AC(I)[172]2:Y[178][181](500[172][187](1))[170]99:X[178]X[170]Y:G(I)[178]G(I)[171]X:[153]"- DAS (null)FLFREGEN";
  709. 33011 [153]" DER ASCELDER :";X"LEFT$ASC"
  710. 33020 X[178]([181](SG(I)[173]2)):Y[178][181](500[172][187](1))[170]99:X[178]X[170]Y
  711. 33021 [153]"- DIE ATNUSSAAT            :";X"LEFT$ASC"
  712. 33025 [139]GV(I)[177]SG(I)[167]W[178]SG(I):GV(I)[178]GV(I)[171]SG(I):[137]33030
  713. 33027 W[178]GV(I):GV(I)[178]0
  714. 33030 [153]"- VERBRAUCHTES (null)AATGUT   :";W"CHR$LEFT$ASC":[137]20800
  715. 33100 [153]"STR$A SIE KEIN (null)AATGUT HATTEN,KONNTEN"
  716. 33110 [153]"(null)IE LEIDER KEIN CHR$ETREIDE ANPFLANZEN.":W[178]0:[141]20800
  717. 35000 SP[178]52585
  718. 35001 [141]19000:[153]"(null)ELCHES (null)AND WOLLEN SIE ANGREIFEN ?"
  719. 35005 A[178]11:[151]SP,62:B[178]400:JMP[178]1
  720. 35006 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]:[153]"(null)ENFRE"
  721. 35035 [141]20100:[139]JMP[178]11[167]2499
  722. 35036 [139]JM[178]I[167]35001
  723. 35037 [151](1159[170]I),1:X[178]O:[129]Y[178]ZZ[170]1[164]10:X[178]X[170][194](1699[170]Y):[130]
  724. 35038 [139]JM[179]ZZ[170]1[175]X[178]10[171]ZZ[175][194](1699[170]JM)[178]0[167]35050
  725. 35039 [139]JM[177]ZZ[175][194](1699[170]JMP)[178]0[167]35050
  726. 35040 [137]35000
  727. 35050 Y[178]JMP:[137]19677
  728. 36000 U[178][194](1299[170]I)[172]1:V[178][194](1309[170]I)[172]2:W[178][194](1319[170]I)[172]1:U[178]U[170]V[170]W
  729. 36005 [139][194](1399[170]I)[170]U[177]255[167][151](1399[170]I),255:[137]36010
  730. 36006 [151](1399[170]I),U
  731. 36010 U[178][194](1299[170]Y)[172]1:V[178][194](1309[170]Y)[172]2:W[178][194](1319[170]Y)[172]1:U[178]U[170]V[170]W
  732. 36015 [139][194](1399[170]Y)[170]U[177]255[167][151](1399[170]Y),255:[142]
  733. 36016 [151](1399[170]Y),U:[142]
  734. 37000 [141]19000:[153]"*BER WELCHES (null)AND WOLLEN SIE":[153]"RIGHT$NFORMATIONEN ?"
  735. 37001 [129]X[178]1[164]10:[139]LB(X)[179]0[167]LB(X)[178]512:[130]
  736. 37002 [130]
  737. 37030 SP[178]52665:A[178]11:[151]SP,62:B[178]400:JMP[178]1
  738. 37040 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]
  739. 37041 [153]"(null)ENFRE":[141]20100:[139]JMP[178]11[167][142]
  740. 37052 [139][194](1699[170]JM)[178]1[167][153]"VALXISTIERT NICHT MEHR!":[141]20800:[137]37000
  741. 37060 X[178]JMP:[141]19000:[153]"RIGHT$NFORMATIONEN FREBER ";LN$(X)
  742. 37080 [153]"(null)ANZER      :";[194](1299[170]X)
  743. 37085 [153]"ASCLUGZEUGE   :";[194](1309[170]X)
  744. 37090 [153]"(null)RUPPEN     :";[194](1319[170]X)
  745. 37092 [153]"(null)ASERNEN    :";[194](1380[170]X)
  746. 37100 [153]"ATNUSBILDUNG  :";[194](1399[170]X)"%"
  747. 37110 [153]"(null)ANDESGR\SSE:";LB(X)"(null)LEFT$ASC":[141]20800:[137]37000
  748. 38000 [139]JA[179]2013[167][142]
  749. 38010 [129]PP[178](ZZ[170]1)[164]10:[139]PP[177]10[167][142]
  750. 38020 Y[178][181](10[172][187](1))[170]1
  751. 38021 [139]Y[179]10[173]([194](1710)[170]1)[167][130]PP:[137]38080
  752. 38035 [139][194](1699[170]PP)[178]0[167]38038
  753. 38036 [139]PP[179]10[167][130]PP
  754. 38037 [142]
  755. 38038 S[178]0
  756. 38040 Y[178][181](10[172][187](1))[170]1:S[178]S[170]0.2:F[178][194](1309[170]Y)[170][194](1299[170]Y)[170][194](1319[170]Y)
  757. 38041 E[178][194](1299[170]PP)[170][194](1309[170]PP)[170][194](1319[170]PP):[139]E[170]([194](1710[172]5))[179]F[175]PP[179]10[167][130]:[142]
  758. 38044 [139]S[178]5[175]PP[179]10[167][130]PP
  759. 38045 [139]S[177]5[175]PP[178]10[167]38080
  760. 38050 [139]Y[178]PP[167]38040
  761. 38051 [139]PP[179]5[175]Y[179]5[167]38040
  762. 38055 [139][194](1299[170]Y)[170][194](1309[170]Y)[170][194](1319[170]Y)[177]0[167]38059
  763. 38056 [137]38040
  764. 38059 [153]"LOADVALS K^MPFT: ";LN$(PP)" GEGEN ";LN$(Y):[151]1800,I:I[178]PP:RR[178]1:[141]19676
  765. 38070 [139]PP[179]10[167][130]PP
  766. 38080 I[178][194](1800):[142]
  767. 40000 [153]"VALNDE DES (null)RIEGES !":[141]20800
  768. 40002 [153]"LOAD";LN$(A)" HAT LEIDER KEINE (null)RUPPEN"
  769. 40010 [153]"MEHR UND MUSS SICH ERGEBEN.STR$IE":X[178]LB(A)[173]4:X[178][181](X[173]4)[170]1959
  770. 40011 [139]X[177]LB(A)[167]X[178]LB(A)
  771. 40015 LB(B)[178]LB(B)[170]X:GL(B)[178]GL(B)[170]X:[151](1699[170]A),1
  772. 40020 [153]"LEFT$AUPTSTADT WURDE ZERST\RT"
  773. 40021 [153]"UND ";LN$(B)
  774. 40022 [153]"BEKAM";X"(null)LEFT$ASC (null)AND.":[141]47000
  775. 40030 [151](1699[170]A),1:[139]BB[178]1[167]BB[178]0:[141]20800:[137]2498
  776. 40031 [137]20800
  777. 41000 [153]"LOADPEEKITTE WARTEN !"
  778. 41003 [129]X[178](ZZ[170]1)[164]10:[139][194](1699[170]X)[178]1[167][130]X
  779. 41006 A[178][194](1299[170]X):B[178][194](1309[170]X):C[178][194](1319[170]X)
  780. 41022 Y[178]5[172][187](1)[170]4:A[178]A[170]Y:[139][194](1299[170]X)[170]A[179]255[167][151](1299[170]X),A:[137]41027
  781. 41024 [151](1299[170]X),255
  782. 41027 Y[178]5[172][187](1)[170]3:B[178]B[170]Y:[139][194](1309[170]X)[170]B[179]255[167][151](1309[170]X),B:[137]41032
  783. 41029 [151](1309[170]X),255
  784. 41032 Y[178]9[172][187](1)[170]6:C[178]C[170]Y:[139][194](1319[170]X)[170]C[179]255[167][151](1319[170]X),C:[137]41040
  785. 41033 [151](1319[170]X),255
  786. 41040 U[178][194](1299[170]X)[172]1.5:V[178][194](1309[170]X)[172]2:W[178][194](1319[170]X)[172]1:U[178]U[170]V[170]W
  787. 41050 [139][194](1399[170]X)[170]U[177]100[167][151](1399[170]X),100:[137]41060
  788. 41051 [151](1399[170]X),U
  789. 41060 [141]50200
  790. 41061 [141]51000
  791. 41070 [139]X[179]10[167][130]X:[142]
  792. 41075 [142]
  793. 42000 [139][194](1163[170]I)[178]1[167][141]20060:[137]19299
  794. 42001 [139][194](1091[170]I)[177]0[167][137]42005
  795. 42002 [153]"VALRST (null)ONDERKOMMANDO KAUFENWAIT":[141]20800:[137]19299
  796. 42005 [141]19000:[153][166]14)"(null)ATNPEEK(null)(null)ATNCHR$VAL"
  797. 42007 SP[178]52705:A[178]11:[151]SP,62:JMP[178]1:B[178]400
  798. 42008 [153]"RIGHT$N WELCHEM (null)AND WOLLEN SIE EINE ":[153]"(null)ASERNE SABOTIEREN ?"
  799. 42010 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]X:[153]"(null)ENFRE":[141]20100
  800. 42011 [139]JMP[178]11[167]19299
  801. 42015 [139][194](1379[170]JMP)[178]0[167]42005
  802. 42016 [139][194](1699[170]JMP)[178]1[167]42005
  803. 42020 [141]19000:Y[178][194](1087[170]I)[170][194](1155[170]I):X[178]Y[170][194](1399[170]JM)
  804. 42021 [151](1163[170]I),1:[139]X[178]Y[167]Y[178]Y[171]1
  805. 42040 W[178]X[170]Y:Z[178][181](W[172][187](1))[170]1:[139]Z[179]X[176]Z[178]X[167]42100
  806. 42055 [153]"STR$ER ATNNSCHLAG IST GELUNGEN.STR$IE"
  807. 42060 [153]"(null)ASERNE UND DIE DAZUGEH\RIGEN"
  808. 42065 [153]"(null)AFFEN SIND ZERST\RT.STR$IE (null)OSTEN FFRER"
  809. 42070 X[178][181](4200[172][187](1))[170]3000:[153]"DIESEN ATNNSCHLAG BETRAGEN";X"LEFT$ASC."
  810. 42080 G(I)[178]G(I)[171]X:[141]20800:[137]42200
  811. 42100 [153]"STR$ER ATNNSCHLAG IST MISSLUNGEN.RIGHT$HR"
  812. 42110 [153]"(null)ONDERKOMMANDO WURDE ERSCHOSSEN.STR$IE"
  813. 42120 [153]"(null)OSTEN FFRER DIE VERLOREN GEGANGENE"
  814. 42130 X[178][181](4200[172][187](1))[170]1500:[153]"ATNUSRFRESTUNG BETR^GT";X"LEFT$ASC.":G(I)[178]G(I)[171]X
  815. 42140 [151](1091[170]I),[194](1091[170]I)[171]1
  816. 42143 [139][194](1155[170]I)[171]2[179]1[167][151](1155[170]I),0:[137]42150
  817. 42145 [151](1155[170]I),[194](1155[170]I)[171]2
  818. 42150 [141]20800:[137]19299
  819. 42200 [129]X[178]1[164]3:[139][194](1299[170]JMP)[171]3[179]0[167][151](1299[170]JMP),0:[137]42230
  820. 42220 [151](1299[170]JMP),[194](1299[170]JMP)[171]3
  821. 42230 JMP[178]JMP[170]10:[130]:Y[178]JMP:[141]36000:[137]19299
  822. 42500 [153]"(null)IEVIEL (null)TFRECK ";:[133]X
  823. 42501 [139]GL(I)[171]X[172]30[179]0[176][194](1379[170]I)[170]X[177]255[176]X[178]0[167][142]
  824. 42502 G(I)[178]G(I)[171]X[172]500:[151](1379[170]I),[194](1379[170]I)[170]X:A(I)[178]A(I)[170]X[172]30:EB(I)[178]EB(I)[170]X[172]50
  825. 42503 GL(I)[178]GL(I)[171]X[172]30:BL(I)[178]BL(I)[170]X[172]30:[137]20050
  826. 43000 [139][194](1379[170]I)[178]0[167][142]
  827. 43002 X[178][181](10[172][187](1))[170]1:[139]X[179](ZZ[170]1)[167]43002
  828. 43003 [139][194](1699[170]X)[178]1[167][142]
  829. 43005 Q[178][194](1399[170]X)[170][194](1151[170]I):Y[178][181](Q[172][187](1))[170]1
  830. 43006 [141]19000:[153]"";LN$(X)" VERFREBTE AUF EINE RIGHT$HRER"
  831. 43007 [153]"(null)ASERNEN EINEN ATNNSCHLAG.":[139]Y[177][194](1399[170]X)[167]43050
  832. 43020 [153]"STR$ER ATNNSCHLAG GELANG UND SIE VERLOREN":[153]"EINE (null)ASERNE."
  833. 43035 X[178]1299:[129]Y[178]1[164]3:[139][194](X[170]I)[171]3[179]0[167][151](X[170]I),0:X[178]X[170]10:[130]:[137]43048
  834. 43041 [151](X[170]I),[194](X[170]I)[171]3:X[178]X[170]10:[130]
  835. 43048 [151](1379[170]I),[194](1379[170]I)[171]1:BL(I)[178]BL(I)[171]30:GL(I)[178]GL(I)[170]30:EB(I)[178]EB(I)[171]50
  836. 43049 A(I)[178]A(I)[171]30:[137]20800
  837. 43050 [153]"STR$ER ATNNSCHLAG MISSLANG JEDOCH.":[137]20800
  838. 44000 X[178][181](EW(I)[173]80):Y[178][181](100[172][187](1))[170]1:X[178](X[170]Y)[170](100[171][194](1043[170]I))
  839. 44005 EW(I)[178]EW(I)[171]X:[141]19000:[153]"STR$IESES MID$AHR STARBEN";X"(null)ENSCHEN UND"
  840. 44010 X[178][181](4[172][187](1))[170]7:Y[178][181](400[172][187](I)):X[178](X[172][194](1039[170]I))[170]Y:EW(I)[178]EW(I)[170]X
  841. 44015 [153]"ES WURDEN";X"(null)INDER GEBOREN.":GB(I)[178][181](EW(I)[173]2):[142]
  842. 45000 [153]"(null)OLLEN SIE DIESES MID$AHR (null)ANDWIRTSCHAFT"
  843. 45005 [153]"BETREIBEN (L) ODER VON RIGHT$HREN":[153]"(null)ORR^TEN LEBEN (V) ?"
  844. 45007 [161]A$:[139]A$[178]""[167]45007
  845. 45008 [139]A$[178]"L"[167]21751
  846. 45009 [139]A$[178]"V"[167]XX[178]512:[137]21843
  847. 45010 [137]45007
  848. 46000 [139]PI(I)[179]LH(I)[176]PI(I)[178]LH(I)[167]X[178]PI(I):[142]
  849. 46001 X[178]LH(I):Z[178]1:[142]
  850. 46002 [153]"STR$A SIE ZU WENIG (null)AGERPLATZ":X[178]PI(I)[171]LH(I):Z[178]0
  851. 46005 [153]"FFRER IHRE RIGHT$LEFT$ASC HATTEN,VERROTTETEN":[153]"";X"RIGHT$LEFT$ASC.":[142]
  852. 47000 [153]"STR$URCH (null)LFRENDERUNGEN BEKAM ";LN$(B):X[178][181](9000[172][187](1))[170]4000
  853. 47005 [153]"";X"LEFT$ASC.":G(B)[178]G(B)[170]X:[139]A[179](ZZ[170]1)[167]G(I)[178]G(I)[171]X
  854. 47006 [142]
  855. 47500 X[178][181]([194](1399[170]I)[173]3):[151](1399[170]I),[194](1399[170]I)[171]X:Y[178][181](999[172][187](1))
  856. 47502 X[178]((100[171][194](1399[170]I))[172]127)[170]Y:[129]Y[178]1[164]3:X[178]X[170][194](1289[170](Y[172]10[170]I))[172]44:[130]
  857. 47510 [141]19000:[153]"STR$AS (null)ILIT^R VERLANGT";X"LEFT$ASC,UM"
  858. 47515 [153]"IHR (null)ILIT^R GUT AUSBILDEN ZU K\NNEN.":[141]20500
  859. 47520 W[178][181](B[173]127):[139][194](1399[170]I)[170]W[177]100[167][151](1399[170]I),100:[137]48000
  860. 47530 [151](1399[170]I),[194](1399[170]I)[170]W
  861. 48000 X[178][181]([194](1155[170]I)[173]3):[151](1155[170]I),[194](1155[170]I)[171]X:Y[178][181](999[172][187](1))
  862. 48002 X[178]((100[171][194](1155[170]I))[172]96)[170]Y
  863. 48004 [141]19000:[153]"STR$ER (null)OLIZEIPR^SIDENT VERLANGT"
  864. 48005 [153]"";X"LEFT$ASC VON RIGHT$HNEN,UM VERALTETE ATNUS-"
  865. 48007 [153]"RFRESTUNG ZU MODERNISIEREN UND NEUE"
  866. 48009 [153]"KAUFEN ZU K\NNEN.":[141]20500
  867. 48012 W[178][181](B[173]96):[139][194](1155[170]I)[170]W[177]100[167][151](1155[170]I),100:[137]48500
  868. 48015 [151](1155[170]I),[194](1155[170]I)[170]W
  869. 48500 X[178][181]([194](1087[170]I)[173]4):[151](1087[170]I),[194](1087[170]I)[171]X:Y[178][181](999[172][187](1))
  870. 48503 X[178]((100[171][194](1087[170]I))[172]122)[170](Y[170](PO(I)[172]2)[170][194](1091[170]I)[172]300)
  871. 48506 [141]19000:[153]"VALS WERDEN";X"LEFT$ASC BEN\TIGT,UM DIE"
  872. 48509 [153]"(null)OLIZEI AUSZUBILDEN.":[141]20500
  873. 48512 W[178][181](B[173]122):[139][194](1087[170]I)[170]B[177]100[167][151](1087[170]I),100:[137]22600
  874. 48515 [151](1087[170]I),[194](1087[170]I)[170]B:[137]22600
  875. 49000 [139]JM[178]2[176]JM[178]4[176]JM[178]6[167]20291
  876. 49001 [153]"LOADRIGHT$HR (null)OLK L^SST AUS ATNNGST VOR EINER"
  877. 49005 [153]"(null)OURISTENSCHWEMME DEN PEEKAU WEITERER"
  878. 49010 [153]"(null)OURISTENANLAGEN NICHT ZU !":[137]20800
  879. 49500 [141]19000:[153]"STR$A SIE ZU WENIG (null)FREHLEN HATTEN,":YY[178]1
  880. 49502 [153]"KONNTE NICHT GENFREGEND (null)ORN FFRER RIGHT$HR"
  881. 49504 [153]"(null)OLK GEMAHLEN WERDEN.VALS VERHUNGERTEN":X[178]GB(I)[171]GK(I):EW(I)[178]EW(I)[171]X
  882. 49506 [153]"INSGESAMT";X"(null)ENSCHEN.STR$AS (null)OLK IST":[153]"SEHR VER^RGERT."
  883. 49508 X[178]X[173]20:[139][194](1039[170]I)[171]X[179]1[167][151](1039[170]I),0:[137]20800
  884. 49512 [151](1039[170]I),[194](1039[170]I)[171]X:[137]20800
  885. 50000 [153]"LOAD(null)IT WIEVIEL CHR$ELD WOLLEN (null)IE"
  886. 50001 A[178]0:[153]"STARTEN (MAXIMAL 50000 LEFT$ASC)";[166]54);:[133]A
  887. 50002 [139]A[179][178]0[176]A[177]50000[167]50000
  888. 50003 [129]X[178]1[164]ZZ:G(X)[178]A:[130]:[142]
  889. 50100 X[178]0:[153]"LOAD(null)ELCHE (null)CHWIERIGKEITSSTUFE M\CHTEN"
  890. 50101 [153]"(null)IE SPIELEN (1-5)";[166]63);:[133]X:[139]X[179]1[176]X[177]5[167]50100
  891. 50102 [151]1710,X:[137]60000
  892. 50200 Y[178][194](1710)
  893. 50202 [139][194](1299[170]X)[170]Y[177]250[167][151](1299[170]X),250:[137]50204
  894. 50203 [151](1299[170]X),[194](1299[170]X)[170]Y
  895. 50204 [139][194](1319[170]X)[170]Y[177]250[167][151](1319[170]X),250:[137]50206
  896. 50205 [151](1319[170]X),[194](1319[170]X)[170]Y
  897. 50206 [139][194](1309[170]X)[170]Y[177]250[167][151](1309[170]X),250:[137]50208
  898. 50207 [151](1309[170]X),[194](1309[170]X)[170]Y
  899. 50208 [142]
  900. 50500 [141]19000:[153]"(null)OLEN (null)IE WIRKLICH ZUR ATNUSWERTUNG ?"
  901. 50502 [153]"(null)ENN JA,DANN BITTE 'SPACE' DRFRECKEN,AN-":[153]"SONSTEN BITTE 'X'"
  902. 50504 [161]A$:[139]A$[178]""[167]50504
  903. 50506 [139]A$[178]"X"[167]500
  904. 50507 [142]
  905. 50700 A[178]0:[153]"(null)IEVIEL (null)OLIZISTEN ENTLASSEN ";:[133]A
  906. 50701 [139]A[177]PO(I)[176]A[179]0[167][153]"ONONON":[137]50700
  907. 50702 A[178]([181](A)):PO(I)[178]PO(I)[171]A:A(I)[178]A(I)[171]A[172]10:[142]
  908. 50760 [153]"STR$AS (null)OLK IST SEHR VER^RGERT FREBER":[142]
  909. 51000 [151](1379[170]X),[194](1379[170]X)[170]5:[139][194](1379[170]X)[177]85[167][151](1379[170]X),85
  910. 51001 [142]
  911. 51300 [153]"PEEKIETET NICHTS AN !";:[141]20800
  912. 51301 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD                   ONONONONON":[142]
  913. 52000 X[178][181](50[172][187](1))[170]34:[142]
  914. 60000 [153]"LOAD(null)IEVIEL MID$AHRE WOLLEN (null)IE SPIE-":[153]"LEN (MAX. 30) ";:[133]X
  915. 60001 [139]X[179]5[176]X[177]30[167]60000
  916. 60002 [151]1711,X:[142]
  917.